﻿Public Class Persona
    Inherits PrototypePersona
    Private _nombre As String = ""
    Public Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property
    Private _apellido As String = ""
    Public Property Apellido() As String
        Get
            Return _apellido
        End Get
        Set(ByVal value As String)
            _apellido = value
        End Set
    End Property
    Private _dni As String = ""
    Public Property Dni() As String
        Get
            Return _dni
        End Get
        Set(ByVal value As String)
            _dni = value
        End Set
    End Property
    Public Overrides Function Clonar() As Persona
        Output.Print(String.Format("Persona {0}, {1} Clonada", _apellido, _nombre))
        Dim p As New Persona
        p.Nombre = _nombre
        p.Apellido = _apellido
        p.Dni = _dni
        Return p
    End Function
End Class
